use TestHelper;
use Map;
use MapTestHelper;
use EntityBagTestHelper;

my ($w, $h) = (20, 12);
my $tiles = getSomeTiles($w, $h);
my $map = Map->new($tiles);

testClass($map, "Map");
print "\n";

testDimensions($map, $w, $h);
print "\n";

testUniformTileset($map, "Ground");
print "\n";

testNoDimensionMutation($map, $w, $h);
print "\n";

printMap($map);
